home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / examples / simplemacro.s < prev    next >
Text File  |  1993-05-22  |  434b  |  34 lines
  1.  
  2. **********************************************
  3. **
  4. ** One of the really first macro testing!
  5. ** ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  6. ** © 1993 by FWS - use or die...
  7. **
  8. **********************************************
  9.  
  10.     heap    O=128k
  11. no    set    1
  12.  
  13. inkno    macro
  14.     if no#1
  15.         .say <!!>
  16.     endc
  17. no    set    no+1
  18.     if no#3
  19.         .say <??>
  20.     endc
  21.     endm
  22.  
  23. print    macro
  24.     .say printing no.
  25. .skip    exp=    no
  26.     inkno
  27.     endm
  28.  
  29.     .say    "go"
  30.     .repeat    3 {
  31.         print
  32.     }
  33.     .say    "done"
  34.